home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PASCSRC.ZIP / PRINTOUT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-01-15  |  541 b   |  18 lines
  1.                                 (* Chapter 10 - Program 7 *)
  2. program Printout_Example;
  3.  
  4. uses Printer;         (* This is needed for TURBO Pascal 4.0 only *)
  5.  
  6. var Index : byte;
  7.  
  8. begin
  9.    Writeln(Output,'Printer program example');
  10.    Writeln(Output,'Turn on your printer and install paper in it.');
  11.    Writeln(Lst,'This is to demonstrate printing in Pascal');
  12.    Writeln(Lst);
  13.    for Index := 1 to 15 do begin
  14.       Write(Lst,'The index value is ');
  15.       Write(Lst,Index:3);
  16.       Writeln(Lst,' at this point');
  17.    end;
  18. end.